Amiga Collections: Purity/Purity #22 (1994-01-19)(Diesel)(DE)[WB].zip/Purity #22 (1994-01-19)(Diesel)(DE)[WB].adf/MagicBlank/BLACKSCR.h

Text File | 1994-01-17 | 508b | 27 lines

{$if not def MAGICBLANK_BLACKSCR_H}

  CONST
    MAGICBLANK_BLACKSCR_H = 1;

  { ************************************ }
  { * Macht nichts anderes, als den    * }
  { * Bildschirm schwarz zu lassen !   * }
  { ************************************ }
  PROCEDURE BlackScreen;
  VAR
    dum : LongInt;
  BEGIN
    dum := 50000;
    sig1 := SetSignal(0,0) AND SBF_CF;
    WHILE sig1 = 0 DO
    BEGIN
      Dec(dum);
      IF dum<=0 THEN Exit;
      sig1 := SetSignal(0,0) AND SBF_CF;
    END;
  END;

{$endif}